;solution for euler 25

(defun solve-euler25 ()
	(let ((a 1) (b 1) c (stop 1) (d 2))
		(dotimes (i 999) (setf stop (* stop 10)))
        (loop
            (setf c (+ a b))
			(incf d)
            (setf a b)
            (setf b c)
            (when (> b stop) (return)))
        (format t "Euler 25: ~a" d)))